<%	
' percorso file remoto da cercare
sURL = "http://www.byluciani.com/pippo.txt" 
 
' creiamo il nostro oggetto XMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
 
' inizializziamo la nostra richiesta XMLHTTP
objXMLHTTP.Open "GET", sURL, false 
 
' inviamo la richiesta HTTP al server remoto da interrogare 
objXMLHTTP.Send 
 
' memorizziamo la risposta del server alla nostra richiesta
iStatus = CInt(objXMLHTTP.Status) 
 
' liberiamo memoria
Set objxml = Nothing 
 
' visualizziamo il risultato della nostra richiesta
If iStatus = 200 Then
  Response.Write "Il file cercato esiste (" & sURL & ")"
ElseIf iStatus >= 400 AND iStatus < 600 Then
  Response.Write "Si è verificato un errore!<br>"
  Response.Write "Codice errore: HTTP " & iStatus
Else
  Response.Write "Altro<br>" 
  Response.Write "Codice HTTP " & iStatus
End If
%>